home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / APSET.SRC < prev    next >
Text File  |  1990-11-03  |  4KB  |  238 lines
  1. ;\|
  2. ;APSET.SRC     Translated from APSET.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3.     clrlne(1|25)
  4.     define(CTR|N|2||)
  5.     define(CTR2|N|2||)
  6.     open(APSET|||)
  7.     trap(S|I)
  8.     trap(D|I)
  9.     trap(Q|G|EXIT)
  10.     trap(C|I)
  11.     trap(F|I)
  12.     trap(R|I)
  13.     trap(B|I)
  14.     trap(N|I)
  15.     mount(APSET|S||)
  16.     find(B|APSET|)
  17. START:
  18.     enter(APSET||||N|N|N|||N)
  19.     for(CTR|1|15|1)
  20.         {
  21.         enter(APDRCTR[ctr]||||||||)
  22.         enter(DRNAME[ctr]||||||||)
  23.         enter(TIMESETAM[ctr]||||||||)
  24.         enter(SECSETAM[ctr]||||||||)
  25.         enter(TIMESETPM[ctr]||||||||)
  26.         enter(SECSETPM[ctr]||||||||)
  27.         enter(HD1[ctr]||||||||)
  28.         enter(HD2[ctr]||||||||)
  29.         enter(HD3[ctr]||||||||)
  30.         enter(HD4[ctr]||||||||)
  31.         enter(DAYNO[CTR]||||N|Y|N|||N)
  32.         }
  33.     CTR2 = (6)
  34.     for(CTR|1|15|1)
  35.         {
  36.         pmsg("TOTAL TIME :"|29|CTR2|Y|N|S|SECONDS2[CTR])
  37.         CTR2 = (CTR2+1)
  38.         }
  39. SAVE.REC:
  40.     save(APSET|Y|Y|START)
  41.     run("FAPPOINT")
  42. EXIT:
  43.     save(APSET|N|Y|)
  44.     run("fappoint")
  45. \STAPSET   
  46. APPOINTMENT SET UP SCREEN     & <  = ANY NUMERIC
  47. -------------------------
  48.                                                    HOLIDAY PERIODS
  49.                                                    ---------------
  50. DR  Dr.Name       AM Start  CT PM Start  CT  From:-    to:-   From:-   to:-  DO
  51. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  52. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  53. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  54. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  55. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  56. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  57. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  58. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  59. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  60. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  61. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  62. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  63. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  64. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  65. & :&              :&       :&  :&       :&  :&       &       :&       &        &
  66.  
  67. DR=CLINIC Number
  68. CT=CONSULTATION TIME IN SECONDS
  69. DO=DAYS OFF SUNDAY=1, MONDAY=2 ........SATURDAY=7
  70. \
  71. APSET
  72. APDRCTR[1]
  73. DRNAME[1]
  74. TIMESETAM[1]
  75. SECSETAM[1]
  76. TIMESETPM[1]
  77. SECSETPM[1]
  78. HD1[1]
  79. HD2[1]
  80. HD3[1]
  81. HD4[1]
  82. DAYNO[1]
  83. APDRCTR[2]
  84. DRNAME[2]
  85. TIMESETAM[2]
  86. SECSETAM[2]
  87. TIMESETPM[2]
  88. SECSETPM[2]
  89. HD1[2]
  90. HD2[2]
  91. HD3[2]
  92. HD4[2]
  93. DAYNO[2]
  94. APDRCTR[3]
  95. DRNAME[3]
  96. TIMESETAM[3]
  97. SECSETAM[3]
  98. TIMESETPM[3]
  99. SECSETPM[3]
  100. HD1[3]
  101. HD2[3]
  102. HD3[3]
  103. HD4[3]
  104. DAYNO[3]
  105. APDRCTR[4]
  106. DRNAME[4]
  107. TIMESETAM[4]
  108. SECSETAM[4]
  109. TIMESETPM[4]
  110. SECSETPM[4]
  111. HD1[4]
  112. HD2[4]
  113. HD3[4]
  114. HD4[4]
  115. DAYNO[4]
  116. APDRCTR[5]
  117. DRNAME[5]
  118. TIMESETAM[5]
  119. SECSETAM[5]
  120. TIMESETPM[5]
  121. SECSETPM[5]
  122. HD1[5]
  123. HD2[5]
  124. HD3[5]
  125. HD4[5]
  126. DAYNO[5]
  127. APDRCTR[6]
  128. DRNAME[6]
  129. TIMESETAM[6]
  130. SECSETAM[6]
  131. TIMESETPM[6]
  132. SECSETPM[6]
  133. HD1[6]
  134. HD2[6]
  135. HD3[6]
  136. HD4[6]
  137. DAYNO[6]
  138. APDRCTR[7]
  139. DRNAME[7]
  140. TIMESETAM[7]
  141. SECSETAM[7]
  142. TIMESETPM[7]
  143. SECSETPM[7]
  144. HD1[7]
  145. HD2[7]
  146. HD3[7]
  147. HD4[7]
  148. DAYNO[7]
  149. APDRCTR[8]
  150. DRNAME[8]
  151. TIMESETAM[8]
  152. SECSETAM[8]
  153. TIMESETPM[8]
  154. SECSETPM[8]
  155. HD1[8]
  156. HD2[8]
  157. HD3[8]
  158. HD4[8]
  159. DAYNO[8]
  160. APDRCTR[9]
  161. DRNAME[9]
  162. TIMESETAM[9]
  163. SECSETAM[9]
  164. TIMESETPM[9]
  165. SECSETPM[9]
  166. HD1[9]
  167. HD2[9]
  168. HD3[9]
  169. HD4[9]
  170. DAYNO[9]
  171. APDRCTR[10]
  172. DRNAME[10]
  173. TIMESETAM[10]
  174. SECSETAM[10]
  175. TIMESETPM[10]
  176. SECSETPM[10]
  177. HD1[10]
  178. HD2[10]
  179. HD3[10]
  180. HD4[10]
  181. DAYNO[10]
  182. APDRCTR[11]
  183. DRNAME[11]
  184. TIMESETAM[11]
  185. SECSETAM[11]
  186. TIMESETPM[11]
  187. SECSETPM[11]
  188. HD1[11]
  189. HD2[11]
  190. HD3[11]
  191. HD4[11]
  192. DAYNO[11]
  193. APDRCTR[12]
  194. DRNAME[12]
  195. TIMESETAM[12]
  196. SECSETAM[12]
  197. TIMESETPM[12]
  198. SECSETPM[12]
  199. HD1[12]
  200. HD2[12]
  201. HD3[12]
  202. HD4[12]
  203. DAYNO[12]
  204. APDRCTR[13]
  205. DRNAME[13]
  206. TIMESETAM[13]
  207. SECSETAM[13]
  208. TIMESETPM[13]
  209. SECSETPM[13]
  210. HD1[13]
  211. HD2[13]
  212. HD3[13]
  213. HD4[13]
  214. DAYNO[13]
  215. APDRCTR[14]
  216. DRNAME[14]
  217. TIMESETAM[14]
  218. SECSETAM[14]
  219. TIMESETPM[14]
  220. SECSETPM[14]
  221. HD1[14]
  222. HD2[14]
  223. HD3[14]
  224. HD4[14]
  225. DAYNO[14]
  226. APDRCTR[15]
  227. DRNAME[15]
  228. TIMESETAM[15]
  229. SECSETAM[15]
  230. TIMESETPM[15]
  231. SECSETPM[15]
  232. HD1[15]
  233. HD2[15]
  234. HD3[15]
  235. HD4[15]
  236. DAYNO[15]
  237. \
  238.